home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing2.mod < prev    next >
Text File  |  1993-01-22  |  754b  |  29 lines
  1. MODULE Kreis; (* Umfang und Flächeninhalt *)
  2. IMPORT
  3.   io, rio: RealInOut;
  4. CONST
  5.   Pi = 3.1415926536; (* Die magische Konstante *)
  6.   Vorkomma = 5;
  7.   Nachkomma = 2;
  8. VAR
  9.   (* Die Variablen *)
  10.   Radius, Umfang, Flaeche: REAL;
  11. BEGIN
  12.   (* Vorbereitung *)
  13.   io.WriteString
  14.         ("Bitte geben sie den Radius des Kreises ein: ");
  15.   IF rio.ReadReal (Radius) THEN END; (* Radius einlesen *)
  16.   (* Berechnung ... *)
  17.   Umfang := 2 * Pi * Radius;
  18.   Flaeche := Pi * Radius * Radius;
  19.   (* Ausgabe *)
  20.   io.WriteString ("Der Umfang beträgt: ");
  21.   IF rio.WriteReal (Umfang, Vorkomma, Nachkomma, FALSE)
  22.      THEN END;
  23.   io.WriteLn;
  24.   io.WriteString ("Die Fläche ist:     ");
  25.   IF rio.WriteReal (Flaeche, Vorkomma, Nachkomma, FALSE)
  26.      THEN END;
  27.   io.WriteLn;
  28. END Kreis.
  29.